home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / jplay.zip / JPLAY.PAS < prev    next >
Pascal/Delphi Source File  |  1990-07-05  |  2KB  |  73 lines
  1.  
  2. PROGRAM JPlay;
  3.  
  4. (* copyright (c) 1988 by Neil J. Rubenking *)
  5. (* Demonstration program for Turbo Pascal  *)
  6. (* 4.0 UNIT "PLAYIT".                      *)
  7.  
  8.  
  9. USES Crt, graph, jdrivers, JPlayIt;
  10.  
  11.  
  12. VAR
  13.   StopChar : Char;
  14.   graphdriver,graphmode:integer;
  15.  
  16.  
  17. {$l inventn4.obj}
  18. procedure inventn4;  external;
  19. {$l preludio.obj}
  20. procedure preludio;  external;
  21. {$l habanera.obj}
  22. procedure habanera;  external;
  23. {$L CMINOR.OBJ}
  24. PROCEDURE CMINOR;    EXTERNAL;
  25. {$L Hitchkok.obj}
  26. PROCEDURE HITCHKOK;  EXTERNAL;
  27.  
  28.  
  29.  
  30. BEGIN
  31.  
  32.   if registerbgidriver(@jcga) < 0 then halt(2);
  33.   if registerbgidriver(@jegavga) < 0 then halt(3);
  34.  
  35.   graphdriver:=detect;
  36.   initgraph(graphdriver,graphmode, '');
  37.  
  38.  
  39.   ClrScr;
  40.   StopChar := #0;
  41.   REPEAT
  42.     playobj(@inventn4, true, stopchar);
  43.     playobj(@preludio, true, stopchar);
  44.     playobj(@habanera, true, stopchar);
  45.     PlayOBJ(@CMINOR  , TRUE, StopChar);
  46.     PlayOBJ(@HITCHKOK, TRUE, StopChar);
  47.   UNTIL StopChar <> #0;
  48.   textmode(co80);
  49.   window(18,8,62,16);
  50.   textbackground(red);
  51.   clrscr;
  52.   window(20,9,60,15);
  53.   textbackground(green);
  54.   clrscr;
  55.   window(22,10,58,14);
  56.   textbackground(blue);
  57.   textcolor(white);
  58.   clrscr;
  59.   writeln(' ');
  60.   writeln('    Brought to you from the lab of');
  61.   textcolor(red+blink);
  62.   writeln('             JewlTronics');
  63.   textcolor(white);
  64.   writeln('            Kannapolis NC');
  65.   window(1,1,80,25);
  66.   textbackground(black);
  67.   textcolor(white);
  68.   gotoxy(1,20);
  69.   writeln('                                                                 ');
  70.   gotoxy(1,20);
  71. END .
  72.  
  73.